home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / ikap / grp / font / ts.bas < prev    next >
BASIC Source File  |  1999-06-15  |  285b  |  19 lines
  1. int i,j,pl
  2. dim char dat(255)
  3.  
  4. screen 0,2,1,1
  5. spfile_def("fnt_1.sp",0)
  6. for i=0 to 15
  7. for j=0 to 15
  8.     sp_pat(i*16+j,dat,0)
  9.     put(j*8,i*8,j*8+7,i*8+7,dat)
  10. next
  11. next
  12.  
  13. for i=0 to 127
  14. for j=0 to 127
  15.     pl=point(127-j,127-i)
  16.     fill(254-j*2,254-i*2,255-j*2,255-i*2,pl)
  17. next
  18. next
  19.